home *** CD-ROM | disk | FTP | other *** search
/ El Mac 7 / El Mac 7.iso / De la revista / Ghostscript / files / gs_lev2.ps < prev    next >
Encoding:
Text File  |  1994-04-25  |  9.4 KB  |  312 lines  |  [TEXT/gsVR]
  1. %    Copyright (C) 1990, 1995 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % Initialization file for Level 2 functions.
  19. % When this is run, systemdict is still writable,
  20. % but (almost) everything defined here goes into level2dict.
  21.  
  22. level2dict begin
  23.  
  24. % ------ Miscellaneous ------ %
  25.  
  26. (<<) cvn /mark load def
  27. (>>) cvn /.dicttomark load odef
  28. /currentsystemparams { mark .currentsystemparams .dicttomark } odef
  29. /currentuserparams { mark .currentuserparams .dicttomark } odef
  30. /deviceinfo { currentdevice getdeviceprops .dicttomark } odef
  31. /languagelevel 2 def
  32. /realtime /usertime load def
  33. % When running in Level 2 mode, this interpreter is supposed to be
  34. % compatible with PostScript version 2010 (I think).
  35. /version (2010) def
  36.  
  37. % If binary tokens are supported by this interpreter,
  38. % set an appropriate default binary object format.
  39. /setobjectformat where
  40.  { pop
  41.    currentsystemparams dup
  42.    /RealFormat get (IEEE) eq { 1 } { 3 } ifelse
  43.    exch /ByteOrder get { 1 add } if
  44.    setobjectformat
  45.  } if
  46.  
  47. % ------ Virtual memory ------ %
  48.  
  49. /currentglobal /currentshared load def
  50. /gcheck /scheck load def
  51. /setglobal /setshared load def
  52. % We can make the global dictionaries very small, because they auto-expand.
  53. /globaldict currentdict /shareddict .knownget not { 4 dict } if def
  54. /GlobalFontDirectory SharedFontDirectory def
  55.  
  56. % ------ IODevices ------ %
  57.  
  58. /.getdevparams where
  59.  { pop /currentdevparams { .getdevparams .dicttomark } odef
  60.  } if
  61. /.putdevparams where
  62.  { pop /setdevparams { mark { } forall counttomark 2 add -1 roll .putdevparams } odef
  63.  } if
  64.  
  65. % ------ Job control ------ %
  66.  
  67. serverdict begin
  68.  
  69. % We could protect the job information better, but we aren't attempting
  70. % (currently) to protect ourselves against maliciousness.
  71.  
  72. /.jobsave null def        % top-level save object
  73. /.jobsavelevel 0 def        % save depth of job (0 if .jobsave is null,
  74.                 % 1 otherwise)
  75. /.adminjob true def        % status of current unencapsulated job
  76.  
  77. /exitserver
  78.  { true exch startjob not { /exitserver /invalidaccess signalerror } if
  79.  } bind def
  80.  
  81. end        % serverdict
  82.  
  83. %**************** The definition of startjob is not complete yet, since
  84. % it doesn't clear the exec stack, doesn't reset stdin/stdout,
  85. % doesn't run the job under its own control, and doesn't reset
  86. % other aspects of the interpreter.
  87. /startjob
  88.  { vmstatus pop pop serverdict /.jobsavelevel get eq
  89.    1 index .checkpassword 0 gt and
  90.     { .checkpassword count 2 roll count 2 sub { pop } repeat
  91.       cleardictstack
  92.       serverdict /.jobsave get dup null eq { pop } { restore } ifelse
  93.       exch
  94.        {    % unencapsulated job
  95.      serverdict /.jobsave null put
  96.      serverdict /.jobsavelevel 0 put
  97.      serverdict /.adminjob 3 -1 roll 1 gt put
  98.        }
  99.        {    % encapsulated job
  100.      serverdict /.jobsave save put
  101.      serverdict /.jobsavelevel 1 put
  102.      userdict /quit /stop load put
  103.      pop
  104.        }
  105.       ifelse true
  106.     }
  107.     { pop pop false
  108.     }
  109.    ifelse
  110.  } odef
  111.  
  112. systemdict begin
  113. /quit
  114.  { //systemdict /serverdict get /.jobsave get null eq
  115.     { //quit }
  116.     { //systemdict /quit get /invalidaccess signalerror }
  117.    ifelse
  118.  } bind odef
  119. end
  120.  
  121. % ------ Compatibility ------ %
  122.  
  123. % In Level 2 mode, the following replace the definitions that gs_statd.ps
  124. % installs in statusdict and serverdict.
  125. % Note that statusdict must be allocated in local VM.
  126. % We don't bother with many of these yet, and the ones defined in terms
  127. % of currentsystemparams are cavalier about allocating a dictionary
  128. % in order to retrieve a single element from it....
  129.  
  130. /.dict1 { exch mark 3 1 roll .dicttomark } bind def
  131.  
  132. currentglobal false setglobal 25 dict exch setglobal begin
  133. currentsystemparams
  134.  
  135. /buildtime 1 index /BuildTime get def
  136. /byteorder 1 index /ByteOrder get def
  137. /checkpassword { .checkpassword 0 gt } bind def
  138. /defaulttimeouts
  139.  { currentsystemparams dup
  140.    /JobTimeout .knownget not { 0 } if
  141.    exch /WaitTimeout .knownget not { 0 } if
  142.    currentpagedevice /ManualFeedTimeout .knownget not { 0 } if
  143.  } bind def
  144. dup /DoStartPage known
  145.  { /dostartpage { currentsystemparams /DoStartPage get } bind def
  146.    /setdostartpage { /DoStartPage .dict1 setsystemparams } bind def
  147.  } if
  148. dup /StartupMode known
  149.  { /dosysstart { currentsystemparams /StartupMode get 0 ne } bind def
  150.    /setdosysstart { { 1 } { 0 } ifelse /StartupMode .dict1 setsystemparams } bind def
  151.  } if
  152. %****** Setting jobname is supposed to set userparams.JobName, too.
  153. /jobname { currentuserparams /JobName get } bind def
  154. /jobtimeout { currentuserparams /JobTimeout get } bind def
  155. %manualfeed
  156. %manualfeedtimeout
  157. /margins
  158.  { currentpagedevice /Margins .knownget { exch } { [0 0] } ifelse
  159.  } bind def
  160. %pagecount
  161. %pagestackorder
  162. /printername
  163.  { currentsystemparams /PrinterName .knownget not { () } if exch copy
  164.  } bind def
  165. %/ramsize { currentsystemparams /RamSize get } bind def
  166. /realformat 1 index /RealFormat get def
  167.  
  168. /.setpagedevice where
  169.  { pop
  170.    /setdefaulttimeouts
  171.     { exch mark /ManualFeedTimeout 3 -1 roll
  172.       /Policies mark /ManualFeedTimeout 1 .dicttomark
  173.       .dicttomark setpagedevice
  174.       /WaitTimeout exch mark /JobTimeout 5 2 roll .dicttomark setsystemparams
  175.     } bind def
  176.    /setmargins
  177.     { exch 2 array astore /Margins .dict1 setpagedevice
  178.     } bind def
  179.  }
  180. if
  181. %setpagestackorder
  182. dup /PrinterName known
  183.  { /setprintername { /PrinterName .dict1 setsystemparams } bind def
  184.  } if
  185. currentuserparams /WaitTimeout known
  186.  { /waittimeout { currentuserparams /WaitTimeout get } bind def
  187.  } if
  188.  
  189. /.setpagedevice where
  190.  { pop 
  191.    /.setpagesize { 2 array astore /PageSize .dict1 setpagedevice } bind def
  192.    /setduplexmode { /Duplex .dict1 setpagedevice } bind def
  193.    /setpageparams
  194.     {    % We don't actually set the orientation yet.
  195.     %currentpagedevice /Orientation known not { pop 0 } if
  196.       mark /PageSize 6 -2 roll
  197.       4 index ORIENT1 { 1 } { 0 } ifelse ne { exch } if 2 array astore
  198.       /Orientation 5 -1 roll
  199.     pop pop %
  200.       /Margins counttomark 2 add -1 roll 0 2 array astore
  201.       .dicttomark setpagedevice
  202.     } bind def
  203.    /setresolution
  204.     { dup 2 array astore /HWResolution .dict1 setpagedevice
  205.     } bind def
  206.  }
  207. if
  208.  
  209. pop        % currentsystemparams
  210.  
  211. % Flag the current dictionary so it will be swapped when we
  212. % change language levels.  (See zmisc2.c for more information.)
  213. /statusdict currentdict def
  214.  
  215. currentdict end
  216. /statusdict exch def
  217.  
  218. % ------ Color spaces ------ %
  219.  
  220. % Define the setcolorspace procedures.
  221. /colorspacedict mark
  222.   /DeviceGray { pop 0 setgray } bind
  223.   /DeviceRGB { pop 0 0 0 setrgbcolor } bind
  224.   /setcmykcolor where
  225.    { pop /DeviceCMYK { pop 0 0 0 1 setcmykcolor } bind
  226.    } if
  227.   /.setcieaspace where
  228.    { pop /CIEBasedA { NOCIE { pop 0 setgray } { 1 get .setcieaspace } ifelse } bind
  229.    } if
  230.   /.setcieabcspace where
  231.    { pop /CIEBasedABC { NOCIE { pop 0 0 0 setrgbcolor } { 1 get .setcieabcspace } ifelse } bind
  232.    } if
  233.   /.setseparationspace where
  234.    { pop /Separation { dup 2 get setcolorspace .setseparationspace } bind
  235.    } if
  236.   /.setindexedspace where
  237.    { pop /Indexed { dup 1 get setcolorspace .setindexedspace } bind
  238.    } if
  239.   /.setpatternspace where
  240.    { pop /Pattern
  241.       { dup length 1 gt { dup 1 get setcolorspace } if
  242.         .setpatternspace
  243.       } bind
  244.    } if
  245. .dicttomark def
  246.  
  247. /.devcs [/DeviceGray /DeviceRGB /DeviceCMYK] readonly def
  248. /currentcolorspace
  249.  { .currentcolorspace dup type /integertype eq
  250.     { //.devcs exch 1 getinterval
  251.     } if
  252.  } odef
  253. currentdict /.devcs undef
  254.  
  255. /setcolorspace
  256.  { dup type /nametype eq { 1 array astore } if
  257.    dup //colorspacedict 1 index 0 get get exec
  258.    .setcolorspace
  259.  } odef
  260.  
  261. % Initialize the CIE rendering dictionary if necessary.
  262. % The most common CIE files seem to assume the "calibrated RGB color space"
  263. % described on p. 189 of the PostScript Language Reference Manual,
  264. % 2nd Edition; we simply invert this transformation back to RGB.
  265. /setcolorrendering where
  266.  { pop mark
  267.    /ColorRenderingType 1
  268.    /MatrixABC
  269.     [ 3.24063 -0.96893  0.05571
  270.      -1.53721  1.87576 -0.20402
  271.      -0.49863  0.04152  1.05700
  272.     ]
  273.    /EncodeABC [{0 max 0.45 exp} bind dup dup]
  274.    /WhitePoint [0.9505 1 1.0890]
  275.    /TransformPQR [ { 4 { exch pop } repeat } dup dup ]
  276.    .dicttomark setcolorrendering
  277.  } if
  278.  
  279. % ------ Painting ------ %
  280.  
  281. % A straightforward definition of execform that doesn't actually
  282. % do any caching.
  283. /execform
  284.  { dup /Implementation known not
  285.     { dup /FormType get 1 ne { /rangecheck signalerror } if
  286.       dup /Implementation null put readonly
  287.     } if
  288.    gsave dup /Matrix get concat
  289.    dup /BBox get aload pop
  290.    exch 3 index sub exch 2 index sub rectclip
  291.    dup /PaintProc get exec
  292.    grestore
  293.  } odef
  294.  
  295. /makepattern
  296.  { currentglobal
  297.     { false setglobal .buildpattern true setglobal }
  298.     { .buildpattern }
  299.    ifelse
  300.    exch dup length 1 add dict copy
  301.    dup /Implementation 4 -1 roll put
  302.    readonly
  303.  } odef
  304.  
  305. /setpattern
  306.  { currentcolorspace 0 get /Pattern ne
  307.     { [ /Pattern currentcolorspace ] setcolorspace } if
  308.    setcolor
  309.  } odef
  310.  
  311. end                % level2dict
  312.